home *** CD-ROM | disk | FTP | other *** search
/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / languages / hope / _hope / _run < prev    next >
Encoding:
Text File  |  1990-04-25  |  1014 b   |  39 lines
  1. | >!Run File for !Hope version 4.02A
  2. |
  3. |
  4. Set Hope$Dir <Obey$Dir>
  5. Set MicroHope$Dir <Obey$Dir>
  6. Set MicroHope$Path <MicroHope$Dir>.
  7. Set HopeProgs$Dir <Hope$Dir>.Programs
  8. Set HopeUtils$Dir <Hope$Dir>.Utilities
  9. |
  10. SetMacro Alias$HCat If "%%0"="" Then Cat <Hope$Dir> Else Cat <Hope$Dir>.%%0 %%*1
  11. Set Alias$Hope Obey <Hope$Dir>.!Run %%*0
  12. |
  13. |
  14. WimpSlot -min 300k
  15. |
  16. |
  17. |    MicroHope is <escape> sensitive, so we must disable
  18. |    the <escape> key whilst it is running, and reenable
  19. |    it on exit.  Causing an end-of-file with ^D at the
  20. |    start of a line will still work.
  21. |
  22. Fx 200 1
  23. Pointer 0
  24. Echo <26><12>
  25. Dir <HopeProgs$Dir>
  26. Echo <13>
  27. Cat
  28. Echo <13><10><10>
  29. If "%0" <> "" Then Echo Entering Hope and loading '%0'. Else Echo Entering Hope with no file loaded.
  30. Echo <13><10>
  31. |  Put the characters load "%0"; <CR> in the keyboard buffer.
  32. If "%0" <> "" Then Set Hope$File %0
  33. If "%0" <> "" Then Set Alias$foo Run <Hope$Dir>.SetBuffer <Hope$File>
  34. If "%0" <> "" Then foo
  35. Unset Alias$foo
  36. Run <Hope$Dir>.!RunImage
  37. Back
  38. Fx 200 0
  39.